home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / LgcyPlus / disk2 / KEYWDGT._ / KEYWDGT.
Encoding:
Text File  |  2001-03-02  |  1.1 KB  |  30 lines
  1. 10    ! **********************************************************
  2. 20    ! Example: KEYPAD Widget
  3. 30    !
  4. 40    ! This program uses the KEYPAD widgt to generate
  5. 50    ! a keypad you can use to enter numbers.
  6. 60    !
  7. 70    ! **********************************************************
  8. 80    !
  9. 90    ASSIGN @Keypad TO WIDGET "KEYPAD";SET ("REAL NOTATION":"FIXED")
  10. 100   CONTROL @Keypad;SET ("TITLE":" Example: KEYPAD Widget")
  11. 110   CONTROL @Keypad;SET ("MINIMUM":0,"MAXIMUM":1000)
  12. 120   CONTROL @Keypad;SET ("X":100,"Y":50,"WIDTH":250,"HEIGHT":300)
  13. 130   CONTROL @Keypad;SET ("CHECK FOR DONE":1)
  14. 140   CONTROL @Keypad;SET ("SYSTEM MENU":"Quit")
  15. 150   ON EVENT @Keypad,"RETURN" GOSUB Get_number
  16. 160   ON EVENT @Keypad,"DONE" GOSUB Get_number
  17. 170   ON EVENT @Keypad,"SYSTEM MENU" GOTO Finis
  18. 180   LOOP
  19. 190     WAIT FOR EVENT
  20. 200   END LOOP
  21. 210 Get_number: STATUS @Keypad;RETURN ("MODIFIED":New_number,"VALUE":Value)
  22. 220   IF New_number THEN
  23. 230     DISP "New number: ";Value
  24. 240     CONTROL @Keypad;SET ("MODIFIED":0)
  25. 250   END IF
  26. 260   RETURN
  27. 270 Finis:   !
  28. 280   ASSIGN @Keypad TO *          ! Delete KEYPAD widget
  29. 290   END
  30.